home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / wtime.bas < prev   
Encoding:
BASIC Source File  |  1994-09-22  |  1.2 KB  |  24 lines
  1. 1 'WTIME.BA (C)1988 Barye Phillips
  2. 2 'A world clock that compensates for
  3. 3 'Daylight Savings Time.  Set SP in
  4. 4 'line 7 for the difference between
  5. 5 'local time and GMT/UTC.  Use ESC
  6. 6 'to return to the M100 menu.
  7. 7 CLS:V=40:DIM C$(10):DIM D(10):SP=5
  8. 8 PRINT@V," Daylight Savings Time?"
  9. 9 K$=INKEY$:IF K$<>"y" AND K$<>"n" THEN 8 ELSE FOR I=1 TO 10:cls:READ R$,R:C$(I)=R$:D(I)=R:NEXT:IF K$="y"THEN D(3)=D(3)+1:D(4)=D(4)+1:SP=SP-1
  10. 10 GOSUB 22:GOTO 12
  11. 11 V$=RIGHT$(TIME$,2):GOSUB 14:PRINT@44,G$:IF V$<>"00" THEN 13
  12. 12 FOR I=1 TO 4:GOSUB 17:PRINT @V*(I+2)+1,T$:NEXT:FOR I=5 TO 10:GOSUB 17:PRINT @V*(I-4)+20,T$:NEXT
  13. 13 K$=INKEY$:IF K$<>CHR$(27) THEN 11 ELSE if isrun then run"menu" else system
  14. 14 GOSUB 22:IF G>=24 THEN G=G-24
  15. 15 Q$=STR$(G):IF G<10 THEN Q$=" 0"+RIGHT$(Q$,1)
  16. 16 G$=Q$+RIGHT$(TIME$,6)+" UTC ":RETURN
  17. 17 M$=" AM":H=G+D(I):IF H<0 THEN H=H+24 ELSE IF H>=24 THEN H=H-24
  18. 18 IF H>=12 THEN M$=" PM":H=H-12
  19. 19 IF H=0 THEN H=12
  20. 20 L$=STR$(H):IF LEN(L$)<2 THEN L$=" "+L$
  21. 21 T$=L$+MID$(TIME$,3,3)+M$+" "+C$(I):RETURN
  22. 22 G=VAL(LEFT$(TIME$,2))+SP:RETURN
  23. 23 DATA "London",0,"Caracas",-4,"New York",-5,"Seattle",-8,"Honolulu",-10,"Sydney",10,"Beijing",8,"Jakarta",7,"Karachi",5,"Athens",2
  24. ə